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DECL oan 

RDB {0 WORKING SET sERvice 

to ACH ° OR DISABLE WORKING SET PEAK CHECKING 
T 


SHRINK 
EX RADYNUS = xan 5 ALCULATE EXTRA DYNAMIC WORKING SET COUNT 


$YSADJ 
able of contents 


(1) 
re 
(3) 
(4) 
(5) 


11 
sa = Save sevice sonet vnc ait came AeA EIS PRCT Nes  d 


-TITLE $YSADJWSL = SYSTEM SERV 1 T LIMIT 
TITLE SYSADJWSL = SYSTEM SERVICE ADJUST WORKING SET LIMI 


i aeeeueneeeceeeereenecensseeeeuenseneeeeencecenensesenceseeseseceesceseeeees 
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NAME AN OOD NA UNE WIN O OD NAME WIN 0 ODN NEW O OONO NEW" OOOO 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eeRPORAT ibe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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p++ 
; FACILITY: EXECUTIVE, MEMORY MANAGEMENT SERVICE 


v03-001 HRJ0062 ecobs 05-Apr-198 
Fix EXTRADYNWS entrees on. This could cause IPL 2 loops 


; ABSTRACT: SYSADJWSL IMPLEMENTS THE ADJUST WORKING SET LIMIT 
5 SYSTEM SERVICE. 
> ENVIRONMENT: 
} AUTHOR: PETER H. LIPMAN , CREATION DATE: 10-DEC-76 
; MODIFIED BY: 
40 ; v03-005 wMc0003 yne Cardoza 05-MAY-1983 
41; Change STRADYNWS Falculat on to account for locked page 
2 3 tables in the dynamic portion of the cE. set. 
44: v03-004 Tenooes Trudy C. Matthews Aeest 
45 ; Change references to Yuorking get fields tn HD I Senet 
? 3 they are used as unsigned words. 
48 : v03-003 troensi Wayne Cardoza 2-Dec-1982 
49; xpens on of process header for new work ng set entries must 
3 terative process. Don't request more than can currently 
: = locked in working set. 
: v03-002 wMC0001 Wayne Cardoza 04-0c t-1982 
3 EXTRADYNS changed to use minimum of quota and size. 


v0e-000 


= SYSTEM SERVICE ADJUST WORKING ser tim 197 360=138¢ 94:38:15 cites 


SYS.SRC 
33 ; by being too leniant. 
Mitts too 


39580 


v04 
Just RAR; 1 


ee 


voe-000 beet 


000004 
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.SBTTL DECLARATIONS 
: INCLUDE FILES: 


: MACROS: 


: EQUATED SYMBOLS: 
: OFFSETS FROM AP 


PAGCNT = 
WSETLA = 


; OWN STORAGE: 


osx 


ADJUST WORKING SET LIMI Vg~$ER~1986 BU: 38:15 YAXZVAS Macro vO4-00 poge i, 


SYS.SRCJ YSADJWSL..MAR MAR; 1 


;NUMBER OF PAGES TO ADD OR SUBTRACT 
SADDRESS TO RETURN NEW WORKING SET LIMIT 


voe-000 oS FSTORETE Ee! QURT vomeine SET LIME 1p-ser-t9He LETS Ya naece OR, Pome 


: «SBTTL ADD TO WORKING SET SERVICE 
FUNCTIONAL DESCRIPTION: 


CALLING SEQUENCE: 
CALL ARGLIST,SYSSADJWSL 
INPUT PARAMETERS: 


we 


SOC 


I PAGCNT (AP) = NUMBER OF PAGES 10 ADD IF POSITIVE 

000 = NUMBER OF PAGES TO SUBTRACT IF NEGATIVE 

00 WSETLICAP) = ADDRESS OF LONG WORD TO RETURN NEW WORKING SET LIMIT 
10 RG = PROCESS CONTROL BLOCK ADDRESS 

I SET UP BY THE CHANGE MODE TO KERNEL DISPATCHER 


IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
RO = SYSTEM STATUS CODE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
NONE 


CARR RALASAAAAAALALALALALELE EE EERE LAL ARERR REESE TERE REESE EERE REE RRR RAS SD OS 


eeeeetererereere THE FOLLOWING CODE MAY BE PAGED teeeeenereecerere 
-PSECT YSEXEPAGED 


De Se Se Ge Se Se Se Ge Ge Ge Se Se Ge Ge Ge Se Ge Ge Se Se Se Ge Ge Se Ge Se Ge Se Ge Ge Se Se Se Ge Se Ge Se Ge Se Se Se Se 


: RESTATE KSTKKAKASHAAAAEAAKAAAAAAATARARAAAATAARAARARAARAAAAAAEAAEEAAAAAAAAAAEAAEEE 
EXESADJWSL: : 
003¢ : “M<R2,R3,R4,R5> 
SETIPL #IPLS ASTDEL ZNO AST'S WHILE MODIFYING PHD 
55 09900000 GE MOVL  G*C tse L_PHD,RS iPROCESS HEADER ADDRESS (P1 SPACE) 
AC MOVL PASCHT AP) Ri [NO. OF PAGES TO ADD TO WORKING SET 
Seeeee "REFERENCE COULD PAGE FAULT 
12 BGEQ ©: 308 ;BRANCH I GROW WORKING SE 
"E Js8 SHRINK : SHRINK THE Wo WORKING SET 
eanaany * 1 Rw 60$ TEX] NSYST M SERVICE 


PEO ODN NE UP CO OOO NEF WIN 0 OD NONE WH 0 OD NOUN EW" 


aaa a at at a = a a ss ss 6 ss ss 


PPE EWM MINIMIIERIIRIIINIPNUNIIID) 2 


voe-000 oS FSPTORENWECEe4PUUET womeane SEV Cams ngosepmtoge B4:38:14 YaaZvag apere OR, Poe, 


i ; MINIMUM OF R1 AND R2 TO RI 


52 p 48 10s: CMP R1,R2 jUSE THE SMALLER 
BLE § {BRANCH Ri IS THE SMALLER 
51 p MOVL wR1 SUSE R2 INSTEAD 
: 208: RSB 
52 "EF 9 4 153 308: mov L* sense MAXWSCNT gh? MAXIMUM Syst * m wip YORK ING SET SIZE 
A 1 4 MOVZWL PHD SIZE(R5), Ro :CURRENT WO eT 
A g 1 MOVZWL P DSW-WSLIST(RS).R IGET STAR yor us wrhi 
3 d 1 DECL TADJUST TO re T WHEN SUBTRACTED 
52 2 1 SUBL 4 R2 [PAGES THAT POT NTIAL Y MAY BE ADDED 
E 1 BSB US SMALLER oF REQUEST AND MAX 
52. 164A A 4 MOVZWL  P sy LWSEXTENT(RS) ,R2 GE POINTER TO END OF MAX SIZE 
53 3 C ‘ 1 SUBL sR, “GET MAXIMUM ALLOWED SIZE 
: 1 SUB R "i SREDUCE BY WHAT'S IN US 
d BSB 10$ SUSE SMALLER OF REQUEST AND PROCESS MAX 
‘ER OCC SUBL3 SCHSGL _FREELIM,- [MAX PHYSICAL NUMBER OF PAGES 
52 "EF 1 PrNSGL “PHYPGCNT ,R2 71S UPPER BOUND ON WORKING SET SIZE 
0 2 165 UBL ;MAXIMUM NUMBER OF ADDITIONAL PAGES 
t4 1 BSBB ; USE SMALLER 
52 124A 1 MOVZWL PHDSW_WSLAST(RS) .R2 [GET POINTER TO END OF CURRENT SIZE 
C B 1 8 SUBL —sR3R [NUMBER OF POTENTIAL PAGES 
¢ : 1 RO.R :GET NUMBER OF UNUSED WSLE IN WSL 
1 »D 1 p CMPL = R1LR 71S REQUEST FOR LESS THAN UNUSED ONES? 
3 18 0064 17 BGEG = 408 BRANCH IF NOT 
52 1 oO @ 6 1% MOVL R1,R2 SUSE ONLY REQUEST SIZE 
50 A 2 AQ 0069 173 408: ADDU RZ, PHOSW_WSSIZE(RS) [ADD IN THE FREE EXPANSION AMOUNT 
51 C2 0 174 SUBL  R2.R1 [NUMBER OF ADDITIONAL PAGES BEYOND WSLAST 
40. 1 175 LEG )~=s« 608 BRANCH IF DONE 
51 oD 1% 428 PUSHL 1 TSAVE THE REQUEST SIZE 
50 76a5 3¢ 17 MOVZWL PHDSW_EXTDYNWS(R5),RO [EXTRA WORKING SET ENTRIES 
9 p 5 178 INCL [THERE IS ALWAYS AT LEAST ONE MORE THAN HExTR 
50 50 A 1? ASHL sof #7.RQ.RO TLONGWORDS OF PROCESS HEADER THIS C 
1 p 1 0 CMPL [CAN WE LOCK ENTIRE REQUEST 
; 3 1 BLEG at [NO PROBLEM 
1 p 1 g MOVL R1 REQUEST LESS 
‘tf i 183 45$: JSB RMGSALCEND [GET ENOUGH SPACE FOR SPECIFIED # OF WSLE’S 
E 00 0 ¢ 4 MOVL (SP)+,R3 :GET BACK THE REQUEST SIZE 
ee 3 
if Ba 6 + R1_IS RETURNED AS THE MINIMUM OF WHAT WAS REQUESTED AND WHAT WAS AVAILABLE 
0 i : NOTE THAT THE FOLLOWING CODE MUST WORK CORRECTLY IF NO NEW ENTRIES ARE ADDED 
ue ® 
5 1 08F 189° MOVL R1,R2 :SAVE COUNT FOR AFTER L 
: 8 0921 BEQL 608 {BRANCH IF HEADER COULDN'T BE EXPANDED 
50 12 a5 3C 6 19 MOVZWL PuDSM WSLAST(RS) ,RO GET IND x TO CURRENT END 
10 a5 50 «BO (0098 MOV Busy swanent (A) {UPDATE NEXT POINTER TO NEW FREE AREA 
50 04 A540 DE 009C 19 MOVAL eas) RO 3GET POINTER TO NEW FIRST FREE ONE 
D4 QOAT 194 508 CLRL. «(RO MARK ENTRY FREE 
FB FS QOAS 195 SOBGTR R1, os [ONCE FOR EACH NEW WORKING SET ENTRY 
A Ad 00 196 ADDW =—s- R2.. PHD USLAST (RS) [UPDATE TO NEW WSLAST 
A AQ QOAA 1 ADDW R2.PHDSW7WSSIZE(R5) [UPDATE TO NEW WORKING SET SIZE 
5 é : 00A cRPL R R3 :D0 WE HAVE ALL WE NEEDED 
NOE ° 
9000ggc2" EF 1 itt: 9 158 RNCSEXTRADYNUS :RE COMPUTE EXTRA DYNAMIC WSLE COUNT 
UR e 
a8 17 BD 2 BRB 496 :GO TRY AGAIN 


2 


oS FSTORENE EARL votes SET Lam ngosepntone gL-aBN4 parva re, vos, Pose 


SYS 
YS v04 
eoooeece" er ig 608: 238, MMGSEXTRADYNWS REC TE EXTRA DYNAMIC it: COUNT 
a-7,'% $ MMGSWSPEAKCHK 3 E WORK! T PEAK 
sRET WORK I T we ZE IN R1 
52 O08 AC 00 $ MOVL ener R2 ADDRESS TO Re URN NEW | rin wee LIMIT 
8 seeeee COULD hg ts REF ERENC 
be 3 ¢ BEQ BRANCH NONE SPECIFIED 
C C C MOVZWL oes, accyle. RO ;RETURN oor FOR ACCESS VIOLATION 
) IFNOWRT #4, + (RS). 3 I Sr 
a D 1 MOVZWL R1,(R OTHERWISE RE THE NEW SIZE 
D 1 pteeee COULD FAULT THIS REFERENCE 
50 01 Hi D 1 $s MOVZWL #SS$_NORMAL ,RO {INDICATE UCce Sorel COMPLETION 
oc 14 90S: RET ;AND RETUR 


vor~000 isBERLENSENUSS PST ABUEISoRETAGIME MCRESSES BEDS UME CHREEL YOR, 
} «SBTTL WSPEAKCHK = ENABLE OR DISABLE WORKING SET PEAK CHECKING 


CALLING SEQUENCE: 
BSBw MMGSWSPEAKCHK 
INPUTS: 
RS = PROCESS HEADER ADDRESS (P1 SPACE OK) 
OUTPUTS: 
R1 = WORKING ef SIZE 
a HE CURRENT hee IS LESS THAN THE CURRENT WORKING SET 
SIZE, T WORE ING SET 4X mee IS ENABLED. 
F THE CURRENT PEAK IS GREATER THAN OR EQUAL TO THE 
CURRENT WORKING SET SIZE, THE WORKING SET PEAK CHECK IS DISABLED. 
PPPS ISTP itiiritiviviiiiiitititiiiiiiiititit 


keneeeeterereree THE FOLLOWING CODE MAY BE PAGED eeeeeeeeeeeereeer 
-PSECT YSEXEPAGED 


PWN HO ODNOA UNE WIN | O ODNOA UNE WS OOOO 


D 4 o 
4 3 SHAKATAK AAAAAAATAAAAAARAAAAAAARAARAARAAAAAAAAERAAEARARAEAAAAAAEAAEAEEE 
D 262: 
43 MMGSWSPEAKCHK: : 
3605S 14 DD 24 BICW #<PHDSM usp AK CHK: PHOSM. IWSPEAKCK>, = 
E1 24 W_FLAGS(R5) ;:DISABLE WORKING SET PEAK CHECK 
1 50 a5 €1 4 MOVZWL puoey USSTPECRSD RETURN WSSIZE IN R1 
00000080" GF 5} E584 CMPW G*CTLSGL EUSPEAR i POSSIBLE TO EXCEED CURRENT PEAK? 
EC 24 BLSSU FO ANCH IF NOT 
AS FE 4 BISW #PHOSM_WSPEAKCHK PHDSW, FLAGS(RD) sYES, ENABLE THE CHECK 
0D ‘ER «oT F 3 10$: BBC #ACHSY" IMAGE ,EXESGL 5,208; IMAGE ACNT. ENABLED ? 
‘GF = 51 FA CMP G*CTLSGL_iW USPEAK™ oss IBLE TO EXCEED CURRENT PEAK? 
04 3 BLSSU Og BRAW CH IF NOT 
36 AS 10 oF aoe BI su #PHDSM_IWSPEAKCK,PHDSW_FLAGS(R5) ;YES, ENABLE THE CHECK 


seas 


50 


OE AS 


08 AS 


SO SSeS SSS OO DB BO 


SSO 
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SOooock$ 
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«SBTTL SHRINK WORKING SET 


«PSECT SMMGCOD 


3; CALLING SEQUENCE: 

, 3 BSB/JSB MMGSSHRINKWS 
72; 

73 ; 

74; 

75 ; 

76 ; 

tr 3 

7 

7 


: 
They 
$ 
§ 
? 
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$ 
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REDUCE THE SIZE OF THE WORKING SET 


SHRINK: 
#IPLS$_SYNCH 


PHD$SW"WSSIZE 
MMGSSARINKWS 
#*A<R2,R5> 


10 
#IPLS_ASTDEL 


MUST WAIT FOR A RESOURCE 
IPL = SYNCH, R1 = RES 
R4 = PROCES$ CONTROL BLOCK ADDRESS 


i 


91 
9 
36 0$:  Mmovw R »PHDSW_WSSIZE(R 
94 VW 3, PHDSW= “WSLAST(R5) 
95 PUSHR 
%6 BSBW mncSt RAD vnus 
9 POPR <R1> 
9 MOVL + mOCBSL_E 
BBSSI R1.W* ChSeLR RESMASK, 208 
20$:  MOVAQ w*SCHSGO_MUAIT R2 
MOVL = FP, SP 
BRW SCHSWAIT 


R 
PHDSW_WSSIZE(RS) ,R2 
R1,R3 


$ CALCULATE THE 
SUBW3 


OURCE TO WAIT FOR 


AX/VM ro V 
SYS.S Rcd 585 


v04-00 
YSADJWSL.MAR; 1 


LARA SARA RAAAAALALAALA LASALLE LER LSE EET EE EE ESE SEE ETT Erect ceed] 


eeneeerereeeeeee THE FOLLOWING CODE MUST BE RESIDENT seeeeeeeeeeererer 


SRAKAHKKAAAAAATA ACEH AAAAAAAAAAAAAAAAAAAAAAAAARARAAAAAAAAAATAAAAAAAAAAEe 


; ADJUST THE WORKING SET POINTERS TO REFLECT THE NEW SIZE OF THE WORKING SET 


Ril = NEGATIVE NUMBER OF PAGES TO DELETE FROM WORKING SET 


;DISABLE SWAPPER 
TSAVE IN CASE FREWSLE SHRINKS THIS 
[SAVE IN CASE RESOURCEWAIT NEEDED 
SSHRINK THE WORKING SET 

:GET BACK ORIGINAL WSSIZE AND WSLAST 
SBRANCH IF NON SUCCESSFUL 

SSWAPPABLE AGAIN 

;RESET ORIGINAL WS SIZE FOR RETRY 
TRESET WSLAST, ENTRIES ARE KNOWN ZEROED 
TSAVE RESOURCE WAIT CODE 

[RESET EXTRA DYNAMIC WORKING SET COUNT 
ERESTORE RESOURCE WAIT NUMBER 

SSET RESOURCE TO WAIT FOR 

:NOTE SOMEONE WAITING 

[WAIT ON MUTEXT WAIT QUEUE 

SRESET FP, AP UNTOUCHED 

sWAIT AS CALLER 

SET DEF AULT RETURN STATUS 

[GET A SCRATCH R Siew 8 

SKEEP WORKING SET SIZ 

SMAKE THE DESIRED PAGE C positive 


MAXIMUM AMOUNT THE WORKING SET CAN BE REDUCED 
PHDSW_WSLIST(RS) ,PHDSW_WSDYN(RS),RO ;GET SIZE OF LOCKED WS 


sense 


51 
50 


50 
53 


Y 
| 


STEM 
NK 


no 
zm 
—zD 
2< 


ne 
FPOW-DOWDWDODON—-OCy S 


SAN 
COCO MOOOMOOENONm 


>>>o 
ouem 


pegpaet vom Sr ham cape aas REIS CSTD || 
Soore RO -R9 RO GET t $tzt Noe UNLOEKE UNLOCKED WS (WSSIZE-LOCKED) 
mOVIuL u- Souteu, MINWSCNT,R1  :GET M $$ ep 
SUBL Ry .RO ‘StLou. tuSht TON PA és 
DECL =soRR SIN CASE CUSHION IS 0 


RO = NUMBER OF Pass $ WHICH a BE TAKEN AWAY WITHOUT REDUCING 
THE WORKING SET ef i hed u THe RIMUR 
: NOW CALCULATE AMOUN AN B REDUCED: WITHOUT DEPLETING EXTRADYNS 


SUBW3 Sih WSLIST(RS) ,PHDSW_ WSQUOTA(RS), R1 


INCW A 
oe & 1h) :GET IT INA retry 
SUBL R1,R2,R1 ;AMOUNT SIZE XCEEDS Hs 
BLEQ 5$ sSIZE SMALLER = USE EXTRADYNS 
4 HDSW_EXTDYNWS(R5),R1 ;ADD IN THE EXCESS DYNAMIC ENTRIES 
5$ MOVZWL PHDSW_EXTDYNWS(R5),R1 ;EXCESS DYNAMIC WORKING SET LIST ENTRIES 
BEQL 608 ;BRANCH IF NONE LEFT TO TAKE AWAY 


= NUMBER 0 


R1 F EXTRA DYNAMIC WORKING SET LIST ENTRIES ABOVE 
THE MINIMUM REQUIR 


ED BY WSFLUID. 
USE THE SMALLER OF RO AND R1 AS THE MOST PAGES THAT CAN BE TAKEN 
AWAY FROM THE WORKING SET LEAVING THE RESULT IN RO 


$: CMPL = RO, R1 
BLEQ 6 


Who Go Ge Ge Se Oe Be Ge 


MOVL  R1,RO 
10$: 
; RO IS THE MAXIMUM NUMBER OF PAGES THAT CAN BE TAKEN, OUT OF THE WORKING SET 
; REDUCE THE WORKING SET SIZE BY THE SMALLER OF RO AND R3. 
CMPL —_ R23, RO ;REDUCE BY THE DESIRED AMOUNT? 
BLEG ©. 208 [BRANCH IF YES 
MOVL  RO,R3 [MUST REDUCE BY LESS 
BLEG 6-608 [BRANCH IF NO SHRINKING POSSIBLE 
$ NOW WE KNOW NUMBER OF PAGES WE CAN FREE, FIRST ATTEMPT TO RECOVER THE 
; PAGES BY JUST REMOVING THE UNUSED GROWTH PAGES FROM THE WORKING S 
: AFTER THIS PAGES WILL BE FREED BY USING THE NORMAL PAGEFAULT REPLACMENT 
: ALGORITHM. 
20$:  ADDW3 PCBSW_PPGCNT(R4) ,PCBSW ~GPGENT(R4) .RO sPAGE COUNT CURRENTLY IN USE 
MOVZWL RO, RQ” sGET IT IN A LONGWOR 
SUBL3 RO, R2,R1 [NUMBER OF PAGES IMMEDIATELY RECLAIMABLE 
BLEG 94 "y [BRANCH IF NONE 
CMPL Ri R3 TARE WE GOING TO GET BACK TOO MANY? 
BLEG $ SBRANCH IF NOT 
MOVL R3,R1 STAKE BACK ONLY WHAT Was ASKED 
30$ SUBW «aR. PHD SW_WSSIZE(RS5) ADJUST WORKING SET Y EMPTIES 
SUBL  R1.R3 ADJUST COUNT OF BAGES T No” Stitt FREE 
BLEG }3=s 608 :BRANCH IF DONE 


r~ 
f=] 
Od 


DOO NIDA ME WIN 9D OOD NIA NE WIN 9 OOD NIP NEW § OOO NAN EAI CO ODN UNE WI OO OWNOUE Ww 


DDR DALDAA DP AD Mes BB BS ES ES EE EE WII AAI NIIP 2 2 SO SO 


MOVL R3,4(SP) sSAVE COUNT OF PAGES TO FREE 


STpAR USL Sualan cone mice ADJUST WORKING str'l LIMI "9-360 =138¢ Rh: if: }$ AX/VMS Macro V04-00 Page 19, 


SYS.SRCISYSADJWSL MAR; 1 


A 50S: 
FGF! at , SBW MAGSFREWSLE 7GET A FREE WORKING SET LIST NTRY 

¢ F Bree gos BRANCH mn RETURN mat “nN Rf: oc 

OA 4 DECW Pus - $1ZE (RS) iA OR NEWL 
F AE OF SOBGTR 4(SP)> iR PEAT FOR EACH SLOT O BE Oe ELETED 

3 Hi D 60$: MOVL (SP)+-R iR ORE Re 
b : $ MOVL  (SP)+.R :$ Et RE URN STATUS= NON-ZERO=F AILURE 
C 7 RSB ;RETU 


4.11 
voe-000 EXTRADYNWS = CALCULATE EXTRA DYMAAIC WOR SSEP-19B6 OS:aB:99 ESYSYSRCS8GSRo USL stan: 1 
7 «SBTTL EXTRADYNWS = CALCULATE EXTRA DYNAMIC WORKING SET COUNT 


; FUNCTIONAL DESCRIPTION: 


THIS ROUTINE CALCULATES THE EXTRA NUMBER 
; ENTRIES AVAILABLE BEYOND THE NUMBER GUARANTEED 


; CALLING SEQUENCE: 
BSBW MMGSEXTRADYNWS 
INPUTS: 


YNAM 


OF D Ic 
BY WSFLUID 


NOs 


9 

9 R5 = PROCESS HEADER ADDRESS 

3 IPL = AT LEAST ASTDEL 

2 OUTPUTS: 

9 R1 = EXTRA DYNAMIC WORKING SET COUNT 
9 RO,R2,R3_PRESERVED 


PHOSW_EXTDYNWS = EXTRA DYNAMIC WORKING SET COUNT 


PRATT AAAAATAAAAAA AAA AAAAAAAAAAAAAAAAAAAAARERARAAAAAARAAKARAAAeA Reet 
eeeeetererereree THE FOLLOWING CODE MUST BE RESIDENT teeeeeeeeeenerene 
»PSECT SMMGCOD 


SARA TAAAAA TATA AAAAAAAAAAAAAAAAAAAAAAAAAARAAAAAAEAAAAARAAAEAAAAAAEAEES 


DOS 


>o 
WO 


5 R 
51 72 a5 6C i SUBW PROM _PTCHTLER ERS) -PUOGU, PT ENTRAR (82) R1_;COUNT OF PAGE TABLES 


ICH ARE NOT LOCKED DOWN 


3 

; 

9 

; 

g 

3 

; 

9 
MMGSEXTRADYNWS: : 
$ cust 
5 

; 

9 

? 

g 

5 

: 


BB 2 BB ~~ BB BB BB BBB BB 8 BB BB BB 8 BB BE 


¢ 
¢ 
¢ 
OC 
DC 
OC 
OC 
DOC 
DOC 
DOCA ; 
m4 AS 51 BI 00CA CMPW = RY, PHDSW_WSFLUID(RS) = ;MINIMIZE WITH FLUID COUNT 
4 18 QOCE 41 BLEQU 108 ;BRANCH IF SMALLER 
1 7405 3C 00D MOVZML PHDSH_USELUID(RS).R1 USE FLUID. IT IS SMALLER 
1 7405 AO 00D4 419 108:  ADDW = PHOSWTWSFLUID(RS)-R1 © SADD_IN FLUID FOR DATA & I STREAM PAGES 
51 6C AS «AO 0008 ADDW © PHDSW_PTCNTLCK(R5S,R1 © ADD IN LOCKED PAGE TABLE PAGES 
51 51 5C Bone MOVZWL  R1,R1 GET IT IN A LONGWORD 
JU P} 
200F ; We now have count of WSLE's that must be reserved in dynamic portion of WSL 
OU 4 
52. 18 AS 08 AS AS OODE : SUBWS — PHDSW_WSLIST(R5S) ,PHDSW_WSQUOTA(RS) .R2 
DES INCH | ;CALCULATE QUOTA 
50 AS BI OE? CMPU RE -PHDSW_WSS\ZE(RS) = MINIMIZE WITH SIZE 
JU 
52 50 A Qo DOE MOVW PHD SW_WSSIZE(R5) ,R2 
53 3e (OOF 208: ROVZyL REAR :GET_IT IN A LONGWORD 
51 C3 00K, SUBL3 RIT;R2,R1 STAKE AWAY THE RESERVED ONES 
UU 3 
tH 5 3; Remove non-dynamic portion of WSL from count 
rf 4 . 
52. 0E AS «08 AS «AS (OOF ‘S SUBW3  PHDSW_WSLIST(RS) ,PHDSW_WSDYN(RS),R2 ;GET COUNT OF LOCKED WS ENTRIES 


SYSADJWSL = SYSTEM SERVICE ADJUST WORKING fr’? LIMI 16S ~~ :3 AX/VMS v04-00 P 1 
Symbol table Beep abe Bbiaesss eveMSacH Skeet an: «| P80 HR, 
a V_ IMAGE = 00000001 
CTL WSPEAK eteeeeee 
TL teeereee x 
T “WSPEAK eeneeeee Xf 
HESADINSL 00000000 RG 
x ACMFLAGS geeeeere x 
IPLS_ASTDEL = 
IPL$S_SYNCH = 
MMGSALCPHD eteereee x 
MMGSE XTRADYNWS 000000C2 RG 
MMGSFREWSLE terereee x 
MMGSSHRINKWS 39 RG 
MMGSWSPEAK CHK D RG 
PAGCNT 2 
PCBSL_EF UM - 
PCBSW_GPGCNT = 
PCBSW_PPGC = 
PFNSGC_PHYPGCNT x 02 
PHDSM_TWSPEAKCK : 
PHDSM~WSPEAKCHK : 
PHDSW_EXTDYNWS = 
=FLAGS 2 
PHD$W~PTCNTLCK : 
PHDSW_PTCNTMAX : 
SOY 

SW _WSEXTENT = 
PHDSW"WSFLUID = 

SU"WSLAST : 
PHDSW_WSLIST : 

$u_ at s 
PHD$W_WSQU0 < 
PHDSW- uesise = 
PRS_IPL = 
SCHSGLFREELIM eeeneeee =X 
SCHSGL_RESMASK eereeere § 6X 
SCH$GQ_MWAIT eeeeeeee 8 6X 
SCHSWATT eeeeeeee 
SGNSGL_MAXWSCNT teereene x 
sGNC MINWSCNT eereeree . x 
SS$_ACCVIO = ‘ 
SS$~- NORMAL = 
WSETLA = 8 

: ewer esreeer ence cce + 
;_Psect synopsis ! 

PSECT name Allocation PSECT No. Attributes 

aes " ( “a 9 ( 9.) NOPIC USR CON ABS LCL wos NOEXE NORD NOWRT NOVEC BYTE 
$ABS ( ») ( 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
YSEXEPAGED ( $$ oi § ( §°} NOPIC USR CON REL LCL NOSHR' EXE RD WRT NOVEC BYTE 
SMMGCOD 1 ( 2.) ( -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 


$$ _____—___ co 


vARe As Macro Run Statistics oh gratet serene gree: apne sir'tum Bet et 84:28:43 f 


Feoeeecoceeeeoceeeeocesosescos$ 


Phase Page faults CPU Time Elapsed Time 
Cross-reference output 
+s 536 


H Performance indicators ; 
ommand processing \ ° 
Pass 1 . 
pyase table sort ° 
eee table output ; 
Psect synopsis output e 
Assembler run totals m 
oxectine » set Limit yes 1390 = ge 

sttob" oyees. $ 1 pages) of virtua y were used to pur tet he intermediate code. 

here were 50 pages of symbol table wspace allocated to hold 939 non-local gnd 25 local symbols. 
444 source tinge were read in Pass 1, producing 15 object records in Pass 2. 
17 pages of virtual memory were used to define 16 macros. 


barrens ener oe en werner eee eee ah 


! Macro Library statistics ! 


Pewee oeoeeescocoeeeeoesoeeooa} 


Macro Library name Macros defined 


SBEESUSE ESE NIUE. 
TOTALS ( braries) 1 


1020 GETS were required to define 13 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:SYSADJWSL/OBJ=OBJ$:SYSADJWSL MSRC$:SYSADJWSL/UPDATE=(ENHS:SYSADJWSL) +EXECMLS/LIB 


AX/VMS Macro Vv04-00 Page 
SYS.SRCISYSADJWSL.MAR; 1 


L EQUIPMENT CORPORATION 
ENTIAL. AND PROPRIETARY 
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